home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / prowres / shared.dxr / 01483_ÉÄÅ[ÉrÅ[ÉWÉÉÉìÉvä÷òA.ls < prev    next >
Encoding:
Text File  |  1995-08-07  |  2.6 KB  |  89 lines
  1. global nmaxpage, nminipage, syearstr, snextmovie, spastmovie, nnextfn, lmaxpagelist, lyearlist, presp, memframelabel
  2.  
  3. on mmoviejump sxx, nframeno
  4.   puppetSound("Single Click")
  5.   cursor(4)
  6.   set nnextfn to nframeno
  7.   set spastmovie to the movie
  8.   set snextmovie to chars(syearstr, 1, 5) & sxx
  9.   mpstypez(2, 8, 0)
  10.   mpstypez(11, 48, 0)
  11.   set sxx to mframelabelchk(sxx, nframeno)
  12.   put sxx
  13.   mspriteset(1, 1, 1, 0, the number of cast (chars(syearstr, 1, 5) & sxx), 320, 240)
  14.   puppetTransition(23)
  15.   go("OUT")
  16.   unLoadCast()
  17. end
  18.  
  19. on mframelabelchk movietail, flmonth
  20.   if (flmonth = "JAN") or (flmonth = "FEB") or (flmonth = "MAR") or (flmonth = "APR") or (flmonth = "MAY") or (flmonth = "JUN") or (flmonth = "JUL") or (flmonth = "AUG") or (flmonth = "SEP") or (flmonth = "OCT") or (flmonth = "NOV") or (flmonth = "DEC") then
  21.     return "_TX"
  22.   else
  23.     if movietail = "_00" then
  24.       return movietail
  25.     else
  26.       if (movietail = "_YN") or (movietail = "_TM") then
  27.         return "_YN"
  28.       else
  29.         if (movietail = "_BW") or (movietail = "_FN") then
  30.           return "_BW"
  31.         else
  32.           if the frameLabel = "IN" then
  33.             return chars(syearstr, 6, 8)
  34.           else
  35.             return "_TX"
  36.           end if
  37.         end if
  38.       end if
  39.     end if
  40.   end if
  41. end
  42.  
  43. on mgotopastyear
  44.   if chars(syearstr, 1, 5) = "G1986" then
  45.   else
  46.     put getPos(lyearlist, value(chars(syearstr, 2, 5)) - 1)
  47.     put getPropAt(lyearlist, getPos(lyearlist, value(chars(syearstr, 2, 5)) - 1))
  48.     set syearstr to chars(string(getPropAt(lyearlist, getPos(lyearlist, value(chars(syearstr, 2, 5)) - 1))), 1, 5) & chars(syearstr, 6, 12)
  49.     put syearstr
  50.     mmoviejump(chars(syearstr, 6, 8), mmonthlabelchk())
  51.   end if
  52. end
  53.  
  54. on mgotonextyear
  55.   if chars(syearstr, 1, 5) = "G1986" then
  56.   else
  57.     put getPos(lyearlist, value(chars(syearstr, 2, 5)) + 1)
  58.     put getPropAt(lyearlist, getPos(lyearlist, value(chars(syearstr, 2, 5)) + 1))
  59.     set syearstr to chars(string(getPropAt(lyearlist, getPos(lyearlist, value(chars(syearstr, 2, 5)) + 1))), 1, 5) & chars(syearstr, 6, 12)
  60.     put syearstr
  61.     mmoviejump(chars(syearstr, 6, 8), mmonthlabelchk())
  62.   end if
  63. end
  64.  
  65. on mmoviejumpx snm
  66.   cursor(4)
  67.   set nnextfn to 1
  68.   set spastmovie to the movie
  69.   set snextmovie to "CARD" & snm
  70.   mpstypez(2, 24, 0)
  71.   mpstypez(33, 34, 0)
  72.   mspriteset(1, 1, 1, 0, the number of cast snextmovie, 320, 240)
  73.   puppetTransition(23)
  74.   go("OUT")
  75.   unLoadCast()
  76. end
  77.  
  78. on mbackmain
  79.   cursor(4)
  80.   set nnextfn to 1
  81.   set snextmovie to "MAIN"
  82.   set spastmovie to the movie
  83.   mpstypez(2, 4, 0)
  84.   mspriteset(1, 1, 1, 0, the number of cast "MAIN", 320, 240)
  85.   puppetTransition(23)
  86.   go("OUT")
  87.   unLoadCast()
  88. end
  89.